home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / MYUTIL / TESTSER.M < prev    next >
Encoding:
Text File  |  1989-03-10  |  954 b   |  18 lines
  1.  
  2. MODULE TestSerial;
  3.  
  4. (* Zwei Tests für Seriennummern-Prüfung im Compiler *)
  5.  
  6. FROM InOut IMPORT WriteString, WriteLn;
  7.      (* Kennung für Prozedur-Parameter wird unbekannt *)
  8.  
  9. VAR a: CARDINAL;
  10.  
  11. BEGIN
  12.   a := 12;
  13.   IF CARDINAL (-(-12)) = a  THEN END;
  14.       (* CARDINAL-Kompatibilität wird gestört *)
  15. END TestSerial.
  16.  
  17. (* $FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44$FFF67E44Ç$000000BC................................................................................$00000149$00000063$00000148$00000135$FFF67E44$00000135$FFF67E44$000000F9$FFF67E44$000000F3$000000DC$000000BC$FFF67E44$FFF67E44$FFF67E44$FFF67E44ãÇÇ*)
  18.